home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / nshadow / tri-4.bas < prev    next >
BASIC Source File  |  1994-06-23  |  567b  |  19 lines
  1. 10 PRINT "   GIVEN ONE SIDE AND THE TWO ADJACENT ANGLES"
  2. 20 PRINT "   FIND THE OTHER TWO SIDES AND THE OTHER ANGLE"
  3. 30 INPUT "ENTER SIDE (S1)"; S1
  4. 40 INPUT "ENTER ANGLE (A1)"; A1
  5. 50 INPUT "ENTER ANGLE (A3)"; A3
  6. 60 Z=57.296
  7. 70 A2=180-A1-A3
  8. 80 S2=S1*((SIN(A3/Z)/SIN(A2/Z)))
  9. 90 S3=S1*(COS(A3/Z))+S2*(COS(A2/Z))
  10. 100 PRINT
  11. 110 PRINT "           ***ANSWERS***"
  12. 120 PRINT
  13. 130 PRINT A1 "     ANGLE (A1)"
  14. 140 PRINT A2 "     ANGLE (A2)"
  15. 150 PRINT A3 "     ANGLE (A3)"
  16. 160 PRINT S1 "     SIDE (S1)"
  17. 170 PRINT S2 "     SIDE (S2)"
  18. 180 PRINT S3 "     SIDE (S3)"
  19.